COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		SUBROUTINE SUBR
C00006 ENDMK
C⊗;
	SUBROUTINE SUBR
	COMMON /INS/ INST(27),BG(60)
	COMMON P(30),INUM,IPAR,CNT(27),BT,PL(48),IREST,DF,DUR(27)
C   INUM=INST#  IPAR=PARAM#  
C   BT=BASIC TIME P1 WHEN SUBROUTINE IS CALLED
C   IF IREST IS <0, THAT NOTE WILL BE A REST.  
C   INST=INST. NAME,  BG=INSTS' BEGIN TIMES.
C   NOTE #S IN SUBROUTINE: (1-84)  C4=37  FS4=43  C5=49  ETC.
C   F1=86  F15=100 (NO F16!)

	DATA N/52/,M/3/

	K=P(3)
	IF(K.NE.J)GO TO 1
	K=N
	IF(N.GT.81 .OR. N.LT.52)M=-M
C  MOVES UP DIM. CHORD TONES.
	N=N+M
	P(7)=88
	P(4)=P(4)/3
	P(2)=P(2)*3
1	J=K
	P(3)=K
C STOPS REPETITION OF RANDOM NOTES.
	END

*** THE INPUT  *****

CLAR 0 10;
P2 .1;
P3 1 G4 B;
P4 1000;
P5 F1;
P7 F4;
P8 SUBR;
END;